Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/C-D/DeveloperStax.cpt/Developer Stack 1.2r/card_20376.txt

Text File | 1989-02-26 | 5KB | 193 lines

-- card: 20376 from stack: in.2r
-- bmap block id: 20046
-- flags: 0000
-- background id: 14090
-- name: More Dog Ears


-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=132 top=107 right=142 bottom=167
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: upper left dogear
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  -- this script handles a diagonally divided button, intended to be
  --  a right dogear
  put (item 1 of the clickLoc) - (item 1 of the rect of the target) into x
  put (item 4 of the rect of the target) - (item 2 of the clickLoc) into y
  put card field pageNumber into tempNumber
  if (x > y) then              -- click is in lower right
    visual scroll right very fast to gray
    visual scroll right very fast
    go this card
    put tempnumber+1 into card field PageNumber
  else
    visual scroll left very fast to gray
    visual scroll left very fast
    go this card
    put tempnumber-1 into card field PageNumber
  end if
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=333 top=107 right=143 bottom=368
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: upper right dogear
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  -- this script handles a diagonally divided button, intended to be
  --  a upper right dogear
  put (item 3 of the rect of the target) - (item 1 of the clickLoc) into x
  put  (item 4 of the rect of the target) - (item 2 of the clickLoc) into y
  put card field pageNumber into tempNumber
  if (x > y) then              -- click is in lower left
    visual scroll left very fast to gray
    visual scroll left very fast
    go this card
    put tempnumber+1 into card field PageNumber
  else
    visual scroll right very fast to gray
    visual scroll right very fast
    go this card
    put tempnumber-1 into card field PageNumber
  end if
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=132 top=258 right=294 bottom=167
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: lower left dogear
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  -- this script handles a diagonally divided button, intended to be
  --  a right dogear
  put (item 3 of the rect of the target) - (item 1 of the clickLoc) into x
  put  (item 4 of the rect of the target) - (item 2 of the clickLoc) into y
  put card field pageNumber into tempNumber
  if (x < y) then              -- click is in upper right
    visual scroll right very fast to gray
    visual scroll right very fast
    go this card
    put tempnumber+1 into card field PageNumber
  else
    visual scroll left very fast to gray
    visual scroll left very fast
    go this card
    put tempnumber-1 into card field PageNumber
  end if
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=333 top=257 right=294 bottom=368
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: lower right dogear
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  -- this script handles a diagonally divided button, intended to be
  --  a lower right dogear
  put (item 1 of the clickLoc) - (item 1 of the rect of the target) into x
  put (item 4 of the rect of the target) - (item 2 of the clickLoc) into y
  put card field pageNumber into tempNumber
  if (x < y) then              -- click is in upper left
    visual scroll left very fast to gray
    visual scroll left very fast
    go this card
    put tempnumber+1 into card field PageNumber
  else
    visual scroll right very fast to gray
    visual scroll right very fast
    go this card
    put tempnumber-1 into card field PageNumber
  end if
end mouseUp



-- part 5 (field)
-- low flags: 00
-- high flags: 2000
-- rect: left=133 top=142 right=256 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 6 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=236 top=265 right=280 bottom=284
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: PageNumber


-- part contents for background part 5
----- text -----
2

-- part contents for background part 12
----- text -----
More Dog Ears

-- part contents for card part 5
----- text -----
• From David Dunham's "fido" which has a REAL dog-ear button. The Dog Ear acts like opposed triangle-shaped buttons.  Copy and Paste into your stacks (Delphi:  DDUNHAM; CIS 76074,762; AppleLink D0457).

• Modified by Neil Kleeman to add upper and lower right and left buttons. Not a real big deal but a pain nevertheless.

-- part contents for card part 6
----- text -----
17